www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Live/live.asp
<!--#include file="../conn.asp" -->
<!--#include file="../Function/Function.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>直播_Live</title>
<style type="text/css">
<!--
body{
background: #000000;
margin-top: 0px;
}
td{
font-size:12px;
line-height:25px;
color:#FFFFFF;
}
.STYLE1 {color: #00F4FF}
a:link {font-size: 12px;color: #727c7d; text-decoration:none;}
a:visited {font-size: 12px;color: #727c7d;text-decoration:none;}
a:hover {font-size:12px;color: #78ff00;text-decoration: underline;}
-->
</style></head>
<body>
<table width="72%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/online_01.gif" width="700" height="84" alt="" /></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="34%" valign="top"><table width="100%" height="420" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="24"><img src="images/online_02.gif" width="241" height="24" alt="" /></td>
</tr>
<tr>
<td height="394" valign="top"><br><iframe frameborder=0 height=80% marginheight=0 marginwidth=0 scrolling=auto src="live_Left.asp" width=100% align="center"></iframe>
</td>
</tr>
</table></td>
<td width="17" valign="top"><table width="440" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><img src="images/online_03.gif" width="441" height="12" alt="" /></td>
</tr>
<tr>
<td><img src="images/online_06.gif" width="11" height="301" alt="" /></td>
<td>
<%IF Request.QueryString("ID")="" Then
Response.Write "<img src=""images/online_07.jpg"" width=""422"" height=""301"" border=""0"" />"
Else
Set RS=Server.CreateObject(YWNT_TMS_RS)
SQL="select ID,LiveType,LiveUrl from YWNT_TMS_Live Where ID="&NoSqlHack(Request.QueryString("ID"))
Rs.open sql,Conn,1,3
If Not RS.Eof Then
LiveID=RS("ID")
LiveUrl=RS("LiveUrl")
LiveType=Rs("LiveType")
End If
RS.Close
Set RS = Nothing
Select Case LiveType
Case 1
FileExt = LCase(Left(LiveUrl, InStrRev(LiveUrl, "://") -1))
if FileExt="mms" then
call MediaPlayer()
else
call RealPlayer()
end if
Case 2
call ForceLive()
End Select
End if
Sub RealPlayer()%>
<OBJECT id="RealPlayer" name="RealPlayer" height=241 width=422 classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA VIEWASTEXT>
<PARAM NAME="AUTOSTART" VALUE="1">
<PARAM NAME="CONTROLS" VALUE="ImageWindow">
<PARAM NAME="PREFETCH" VALUE="0">
<PARAM NAME="LOOP" VALUE="0">
<param name='SRC' value='<%=LiveUrl%>'>
<param name="CONSOLE" value="one">
</OBJECT>
<OBJECT id=rxx height=60 width=422 classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA VIEWASTEXT>
<param name="CONTROLS" value="ControlPanel,StatusBar">
<param name="CONSOLE" value="one">
</OBJECT>
<%end sub
Sub MediaPlayer()%>
<object classid="clsid:6BF52A52-394A-11d3-B153-00C04F79FAA6" id="mediaPlayer" height="301" width="422">
<param name="AutoStart" value="-1">
<param name="Balance" value="0">
<param name="BaseURL" value="">
<param name="CaptioningID" value>
<param name="CurrentPosition" value="-1">
<param name="CurrentMarker" value="0">
<param name="DefaultFrame" value>
<param name="Enabled" value="-1">
<param name="EnableContextMenu" value="0">
<param name="fullScreen" value="0">
<param name="InvokeURLs" value="-1">
<param name="Mute" value="0">
<param name="PlayCount" value="1">
<param name="Rate" value="1">
<param name="SAMILang" value>
<param name="SAMIStyle" value>
<param name="SAMIFileName" value>
<param name="Volume" value="50">
<param name="WindowlessVideo" value="0">
<param name="uiMode" value="full">
<param name="stretchToFit" value="0">
<param name="enableErrorDialogs" value="0">
<param name="url" value="<%=LiveUrl%>">
</object>
<%End Sub
Sub ForceLive()
SP2PID = split(LiveUrl,"|")
Set RS=Server.CreateObject(YWNT_TMS_RS)
SQL="select filmid,ptl,[type] from p2pfilm Where vod=0 and MovieID="&LiveID&" Order by filmid desc"
Rs.open sql,Conn,1,1
If Not RS.Eof Then
id=RS("filmid")
ptl=RS("ptl")
typex=RS("type")
End If
RS.Close
Set RS = Nothing%>
<OBJECT id="ForcePlayer" codeBase="forceplayer.cab#version=2,0,0,1" height="301" width="422" data="DATA:application/x-oleobject;BASE64,mRHW/Ifh3UqI5ZryOEhtERAHAACtWAAAry0AAA==" classid="CLSID:FCD61199-E187-4ADD-88E5-9AF238486D11" VIEWASTEXT>
</OBJECT>
<Script language="JavaScript">
ForcePlayer.ShowControlPanel(1);
ForcePlayer.AutoCloseShell(1);
ForcePlayer.ShowBorder(0);
ForcePlayer.SimpleSelectByURL("forcetv://stream/<%=id%>?tip=<%=SP2PID(0)%>&ptl=<%=ptl%>&type=<%=typex%>");
</Script>
<%End Sub%></td>
<td><img src="images/onlinedright.jpg" width="8" height="301" /></td>
</tr>
<tr>
<td colspan="3"><img src="images/onlinebottom.jpg" height="34" /></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="239"><img src="images/online_22.gif" width="441" height="69" alt="" /></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>